home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 August
/
Ahoy_Magazine_86-08_1986_Double_L.d64
/
Encoder Comal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
313b
|
16 lines
1 // commodares problem #28-4:
2 // elegant encoder
3 // solution by
4 // paul claessen
5 // >> comal solution <<
10 input a$
20 v:=0
30 for i:=1 to len(a$) (NULL)
40 v:=v-(ord(a$(i:i))-64)
50 endfor i
60 for i:=1 to len(a$) (NULL)
70 tv:=v-(ord(a$(i:i))-64)
80 tv:=tv mod 29
90 print chr$(tv+64),
100 endfor i